(comint-dynamic-list-completions): Handle any event when flushing the display.

diff --git a/lisp/comint.el b/lisp/comint.el
index 00b96185c22dfe7ae1958f6d071907b7348893bf..a35ae10fd027866ff2724a2b659eec84b25a7a17 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1093,10 +1093,10 @@ it just adds completion characters to the end of the filename."
               (display-completion-list completions))
             (sit-for 0)
             (message "Hit space to flush")
-            (let ((ch (read-char)))
+            (let ((ch (read-event)))
               (if (= ch ?\ )
                   (set-window-configuration conf)
-                  (setq unread-command-events (list ch)))))))))
+                (setq unread-command-events (list ch)))))))))
 \f
 ;;; Converting process modes to use comint mode
 ;;; ===========================================================================